#!/usr/bin/perl
use strict; use warnings;

while ( <> ) {
    my $spacing = ' ' x ( 3 - length $. );
#    my $spacing = ( $. < 10 ) ? ' ' : '';
    print "$spacing$. $_";
}
